home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Discy Business / Discy Business.hdv / DEV.CD / GUIDED.TOURS / GS.PTD / SCRIPTS / MENU.SCP < prev    next >
Encoding:
Text File  |  1988-04-16  |  4.3 KB  |  249 lines  |  [04] ASCII Text (0x0001)
  1.  
  2.  
  3. %if¶1Û<>‘UNNELÛkip±
  4. %s ≤001ÓewmenuÁs„ode∞±1
  5. %palette∂40∞∞∞∞†alette∂40≥±5±5±5
  6. %palette∏∞±5±5±5†palette∂40≤±5±5±5
  7. %palette∑†1±5±5±5alette∑†5∞∞±5
  8. %palette∑†9±5±5±5alette∑±3∞∞±5
  9. %bcolor±˜indow∞±3∂40≤00‚color≥Êcolor∞
  10. %skip≥
  11. %w
  12. %if¶Jº±000Ïink‘UNNEL
  13. %w
  14.  
  15. %m 1
  16. %border≤„ode∞≤
  17. %preload‰ata/gs.menu„enterÔnÊontÛys„ode∞µ˜rapÔn
  18. %palette∂40±∞∞∞‚color±ÂscreenÓewmenuÁs„ode∞±1
  19. %palette≥20∞±5±5±5
  20. %palette∂40∞∞∞∞alette∂40≥±5±5±5†palette∂40≤∑±3±5
  21. %palette∑†1±5±5±5alette∑†5∞∞±5
  22. %palette∑†9±5±5±5alette∑±3∞∞±5
  23. %wrapÔn„enterÔn·utoexitÔff‚color∞
  24.  
  25. %window∞±3∂40≤00
  26. %w
  27.  
  28. %m 2
  29. %fcolor∞‚color≥
  30. %if¶backÏink‘unnel
  31. %s∞∞
  32. %if¶Jº≤000Û¥¢StartÊromÙhe¬eginning"Ûµ¢Getting”tarted"Ûkip≥
  33. %if®&Jæ≥000)Ûkip±
  34. %sµ¢Getting”tarted"
  35. %if¶JΩ≤001Û¥¢Identifying–arts"Ûkip≥
  36. %if¶JΩ≤002Û¥¢Communicating"Ûkip≥
  37. %if¶JΩ≤003Û¥¢WhereÙhe…nfo«oes"Ûkip≥
  38. %if¶JΩ≤004Û¥¢Word–rocessing"Ûµ¢Applications"Ûkip≥
  39. %w
  40. %if®&Jæ¥000)Ûkip±
  41. %sµ¢Applications"
  42. %if¶JΩ≥001Û¥¢Database"Ûkip≤
  43. %if¶JΩ≥002Û¥¢Spreadsheet"Ûkip≤
  44. %if¶JΩ≥003Û¥¢Graphics"Ûkip≤
  45. %if¶JΩ≥004Û¥¢AndÕore"Ûkip≤
  46. %if¶JΩ≥005Û¥¢Why–rogram?"Ûµ¢Programming"Ûkip≤
  47. %w
  48. %if¶JΩ¥001Û¥¢Conclusion"Ûµ¢Quit"
  49. %w
  50. %if¶1Û=‘UNNELÛkip±
  51. %boxπ5¥2µ54±41˜indow±37µ9µ08±27
  52. TheÓextÙopicÈs
  53. %boldÔn
  54. '&4'.†
  55. %boldÔff
  56. ChooseÈtÊromÙheÌenu„alled
  57. %boldÔn
  58. "&5".†
  59. %boldÔff
  60. Or,Èf˘ou've‚eenÙhroughÙhe‰isk‚efore,„hoose˜hatever
  61. topic˘ou˜ant.
  62.  
  63. Whenever˘ou'reÚeadyÙoÛtop,„hoose
  64. %boldÔn
  65. Conclusion
  66. %boldÔff
  67. fromÙhe
  68. %boldÔn
  69. Quit
  70. %boldÔff
  71. menu.
  72. %skip≤
  73. %w
  74. %boxπ4¥2µ52±57
  75. You„anÏeaveÙheÙour˜henever˘ou˜ant‚y„lickingÕenu·nd„hoosing
  76. ConclusionÊromÙhe—uitÌenu.
  77.  
  78. ButÚightÓowÈt'sÙimeÙoÁetÁoing.†Choose
  79. %boldÔn
  80. Identifying–arts
  81. %boldÔff
  82. fromÙhe
  83. %boldÔn
  84. Getting”tarted
  85. %boldÔff
  86. menu.†(Or,Èf˘ou've‚eenÙhroughÙhis‰isk‚efore,
  87. choose˜hateverÙopic˘ou˜antÊrom·nyÔfÙheÌenus.)
  88. %w
  89.  
  90. %m 3
  91. %if¶backÍ≠±
  92. %time≤5‚color±
  93. %get menu 0
  94. %bcolor≥Û±¢"
  95. %if¶timeÛkip≤
  96. %if¶mnuΩ∞Ûkip≤
  97. %code∞±9
  98. %Èf¶ansÛkip≥
  99.  
  100. %m 4
  101. %if¶backÍ≠≤
  102. %if¶selΩ±001Í´≥
  103. %if¶selΩ±002Í´≥
  104. %if¶selΩµ001Í´±
  105. %point
  106. %if¶sel·nd®&1Û=‘UNNEL©‚color±„uesÔffÂraserect¥50±80∂40≤00
  107. %bcolor∞Êcolor≥
  108. %if¶selΩ≤001Û ¶selÏink‘UNNEL
  109. %if¶selΩ≤002Û ¶selÏink–ARTS
  110. %if¶selΩ≤003Û ¶selÏinkÀBD
  111. %if¶selΩ≤004Û ¶selÏink…NFO
  112. %if¶selΩ≥001Û ¶selÏink◊P
  113. %if¶selΩ≥002Û ¶selÏinkƒB
  114. %if¶selΩ≥003Û ¶selÏink”S
  115. %if¶selΩ≥004Û ¶selÏink«X
  116. %if¶selΩ≥005Û ¶selÏinkœTHERS
  117. %if¶selΩ¥001Û ¶selÏinkÕENU3
  118. %bcolor≥Êcolor∞
  119. %w
  120. %e
  121. ”orry,Õenu¶mnuÃesson¶selÈsÓot˜orking˘et.
  122. –leaseÌake·‰ifferentÛelection.
  123. %j get
  124. %w
  125. %e˜indow±91µ7¥68±27˜rapÔn
  126. ToÔpenÙhe
  127. %boldÔn
  128. &5
  129. %boldÔff†wrapÔff„enterÔff
  130. menu:
  131.  
  132. &P†MoveÙheointerÙoÙheÌenuÙitle.
  133. &P†Press¡ND»OLDÙheÌouse‚utton.
  134. &P†Drag‰ownÙheÏistıntilÙheÈtem
  135. ††you˜antÈsËighlighted.
  136. &P†ReleaseÙheÌouse‚utton.
  137. %wrapÔn
  138. %j get
  139. %w
  140. %e˜indow±43∂0µ08±27
  141. %wrapÔn
  142. You've·lready‰oneÙhatÛection.†Do˘ou
  143. wantÙo‰oÈt·gain?†ClickÙhe‚oxÓext
  144. to˘our·nswer.
  145. %btn±±94∏9
  146. Yes
  147. %btn≤±94π9
  148. No
  149.  
  150. %window±91µ7¥68±10Û¥¢your„hoice"Êcolor∞
  151. %get click
  152. %if¶actΩ≠1aintrect·rea±Í¥
  153. %if¶actΩ≠2aintrect·rea≤Í≤
  154. %j get
  155.  
  156. %j≠≤
  157.  
  158. %m 5
  159. %code∞≥
  160. %cuesÔff‚color≥Âscreen‚order∞alette≥20∞≥∑±3‚color∞Âscreen
  161. %border∞Êcolor≥˜indow∞∏0∂40≤00„enterÔn
  162. œneÌoment,lease...
  163. %preloadÁfx/m0.08e
  164. %loadinst∞Êx„lap.w¢"˜ait∞
  165. %loadinst¥Ûtring‚ass.l¢"˜ait∞
  166. %loadinst≤‰rumËidrum.w¢"˜ait∞
  167. %loadinst≥‰rumÏodrum.w¢"˜ait∞
  168. %loadinst±ÁuitarÁuitar.l¢"˜ait∞
  169. %preloadÛfx/bye.w˜ait∞
  170. %gfx≥Ì4.01∏4≤9„ode∞≤
  171. %buffer
  172. %sfxÙour˜ait¥0
  173. %animateÌ0.08e±8π9∞Ôff±4
  174. 320µ6†∞∞±00≥6
  175. 320µ6†∞∞±00≥6
  176. 324µ6±02∞±52≥6
  177. 320µ6†∞∞±00≥6
  178. 324µ6±02∞±52≥6
  179. 320µ6†∞∞±00≥6
  180. 320µ6†∞∞±00≥6
  181. 324µ6±54∞≤04≥5
  182. 290µ6≤06∞≤80≤5
  183. 290µ6≤82∞≥62≥6†0≥¥0∞±27
  184. 306µ6≥64∞¥28≥6
  185. 304∂1¥30∞¥96≤7
  186. 304∂1¥98∞µ34≤0†0≥≥5∞±27
  187. 304∂1µ36∞µ76≤4
  188. %gfxpartµÌ4.01≤92∂5≤08≥6≤46µ5
  189. %code∞≤0
  190. %window∑0±54µ90≤00Â
  191. %if¶0Ω∞Ûkip±
  192. %if¶0Ω±Û∞Ône
  193. %if¶0Ω≤Û∞Ùwo
  194. %if¶0Ω≥Û∞Ùhree
  195. %if¶0Ω¥Û∞Êour
  196. %if¶0ΩµÛ∞Êive
  197. %if¶0Ω∂Û∞Ûix
  198. %if¶0Ω∑Û∞Ûeven
  199. %if¶0Ω∏Û∞Âight
  200. %if¶0ΩπÛ∞Óine
  201. %if¶0Ω±0Û∞Ùen
  202. GoodÁoing!†You'veÊinished¶0ÔutÔfÙenÌenuÙopics.†SoÏongÊorÓow!
  203. %skip≤
  204. %w
  205. ”ee˘ouÓextÙime!
  206. %w
  207. %wait≤5
  208. %animateÌ0.08e±8π9∞Ôff±3
  209. 320µ6∞∞±00≥6
  210. 324µ6±02∞±52≥6
  211. 320µ6∞∞±00≥6
  212. 324µ6±02∞±52≥6
  213. 320µ6∞∞±00≥6
  214. 320µ6∞∞±00≥6
  215. 324µ6±54∞≤04≥5
  216. 290µ6≤06∞≤80≤5
  217. 290µ6≤82∞≥62≥6†0≥¥0∞±27
  218. 306µ6≥64∞¥28≥6
  219. 304∂1¥30∞¥96≤7
  220. 304∂1¥98∞µ34≤0†0≥≥5∞±27
  221. 304∂1µ36∞µ76≤4
  222. %time 16 get any
  223.  
  224. %m 6
  225. %e˜indow∞±54∂40≤00„enterÔn
  226. ‘oÂject˘ourÙour‰isk,ressÙhe‚utton·tÙheÚightÂdgeÔfÙhe‰isk‰rive.
  227. %move∞∑
  228. ‘oÚeturnÙoÙhe¡pple¶N‘our,ÌakeÛureÙheÙour‰iskÈsÈnÙhe‰isk‰rive
  229. ·ndressÙhe≈scÎey.
  230. %wait±85
  231. %sfx±
  232. 1†5†0∞∞
  233. %loadinstµÊx‚ye.wß'Ûfx≤
  234. 5∂0†0∞∞
  235. 5≥0¥3∞±27
  236. %time∞
  237. %get any
  238. %j get
  239.  
  240. %m 7
  241. %boxπ5¥2µ54±41˜indow±37µ9µ08±27„enterÔn
  242.  
  243. Ÿour‘ourÔfÙhe¡pple…IGS®R)
  244.  
  245. ®C)±988¡pple√omputer,…nc.
  246. %time 15 s 0 0 get any
  247. %j≤
  248.  
  249.